home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zh.d64 / txt.discard font < prev    next >
Text File  |  2007-03-01  |  1KB  |  74 lines
  1. ─╔╙├┴╥─ ┴ ╦┼╨╘ ╞╧╬╘
  2.  
  3. BY ─ICK ╦LINGENS
  4.  
  5. ╔N SAME WAY AS DESCRIBED IN THE
  6. ARTICLE "─ISCARD A ROM'ED PACKAGE" WE
  7. CAN SOLVE ANOTHER PROBLEM (IS IT
  8. REALLY A PROBLEM?). ┘OU HAVE YOUR
  9. FAVOURITE FONT IN MEMORY AND YOU WANT
  10. TO KEEP IT THERE:
  11.  
  12.    ╒╙┼ FONT
  13.    KEEPFONT
  14.  
  15. ┴FTER LOADING A FONT THE PROGRAM
  16. MEMORY DECREASES FROM 30714 TO 25594
  17. BYTES. ╬OW YOU WANT TO RUN A PROGRAM
  18. AND THE MESSAGE 'OUT OF MEMORY' IS
  19. PRINTED. ╘HIS ERROR IS PROBALABLY
  20. CAUSED BY YOUR FONT.
  21.  
  22. ╚OW TO DISCARD THE USER FONT? ┬Y
  23. SWITCHING OFF AND ON THE COMPUTER? ╧F
  24. COURSE NOT. ═┼╥╟┼ THE FOLLOWING
  25. PROCEDURE FROM DISK.
  26.  
  27.    ╨╥╧├ NOFONT ├╠╧╙┼─
  28.      REG:=$C2BB
  29.      MASK:=%10000000 ┬╔╘╪╧╥ 255
  30.      ROM(REG)
  31.      //
  32.      ╨╥╧├ ROM(X)
  33.        ╨╧╦┼ X, ╨┼┼╦(X) ┬╔╘┴╬─ MASK
  34.      ┼╬─╨╥╧├ ROM
  35.    ┼╬─╨╥╧├ NOFONT
  36.  
  37. ╬OW TYPE THE COMMANDS
  38.  
  39.    ╙├┴╬
  40.    NOFONT
  41.    DISCARD
  42.  
  43. AND ╧╒╘ IS YOUR FAVOURITE.
  44.  
  45. ╔N THE REGISTER $C2BB ├╧═┴╠ REMEMBERS
  46. SOME FONT COMMANDS. ┴T ├╧═┴╠ STARTUP
  47. THE VALUE IN $C2BB IS 0. ┴FTER THE
  48. COMMAND
  49.  
  50.    LOADFONT("<FONT NAME>")
  51.  
  52. THE VALUE IS 1 ( = %00000001 ). ┴ND
  53. AFTER
  54.  
  55.    KEEPFONT
  56.  
  57. WE FIND THE VALUE
  58.  
  59.    129 = %10000001
  60.  
  61. IN THE REGISTER.
  62.  
  63. ╙O THE 7TH BIT REMEMBERS 'KEEPFONT'.
  64. ╘HE ABOVE PROCEDURE RESETS THIS BIT.
  65.  
  66. ╔ NOTICED A REMARKABLE THING. ╔SSUE,
  67. AFTER DISCARDING THE KEPT FONT,
  68.  
  69.    ╨╧╦┼ $C2BB,129
  70.    DISCARD
  71.  
  72. ┴ND THERE IS YOUR FAVOURITE FONT
  73. AGAIN (A ╒╬DISCARD)!
  74.